home *** CD-ROM | disk | FTP | other *** search
/ Manchester United on CD / Manchester United on CD.iso / mainmenu.dxr / Internal_16_scroll background.ls < prev    next >
Encoding:
Text File  |  2000-08-30  |  1.2 KB  |  33 lines
  1. property psp_mysprite, pf_myloch, pl_itempositionlist, pl_actionlist
  2. global gsp_backgroundsprite, gsp_markersprite, gi_action, go_airportdisplaymaster, gp_lastknownbackgroundposition
  3.  
  4. on beginSprite me
  5.   psp_mysprite = sprite(me.spriteNum)
  6.   gsp_backgroundsprite = psp_mysprite
  7.   if not voidp(gp_lastknownbackgroundposition) then
  8.     psp_mysprite.loc = gp_lastknownbackgroundposition
  9.   end if
  10.   pf_myloch = psp_mysprite.locH
  11. end
  12.  
  13. on exitFrame me
  14.   if rollover(psp_mysprite.spriteNum) then
  15.     h = (((the stage).rect.width / 2) - the mouseH) / 80
  16.     pf_myloch = pf_myloch + h
  17.     if pf_myloch > (0 + (psp_mysprite.member.width / 2)) then
  18.       pf_myloch = 0 + (psp_mysprite.member.width / 2)
  19.     end if
  20.     if pf_myloch < ((the stage).rect.width - (psp_mysprite.member.width / 2)) then
  21.       pf_myloch = (the stage).rect.width - (psp_mysprite.member.width / 2)
  22.     end if
  23.     psp_mysprite.locH = pf_myloch
  24.     gp_lastknownbackgroundposition = psp_mysprite.loc
  25.     sendAllSprites(#updatehotspots)
  26.     sendAllSprites(#updatenavigator)
  27.   end if
  28. end
  29.  
  30. on getPropertyDescriptionList me
  31.   return [#myproperty: [#comment: "comment:", #format: #float, #range: [#min: 0, #max: 180], #default: 10]]
  32. end
  33.